home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.40 / xsc / xscdouble.p < prev    next >
Text File  |  1994-12-10  |  863b  |  60 lines
  1. UNIT xscdouble;
  2.  
  3. INTERFACE
  4. {$incl 'MathIEEEDoubTrans.lib'}
  5.  
  6. FUNCTION cosh(r:DOUBLE):DOUBLE;
  7. FUNCTION sinh(r:DOUBLE):DOUBLE;
  8. FUNCTION tanh(r:DOUBLE):DOUBLE;
  9. FUNCTION tan(r:DOUBLE):DOUBLE;
  10. FUNCTION arctan(r:DOUBLE):DOUBLE;
  11. FUNCTION arccos(r:DOUBLE):DOUBLE;
  12. FUNCTION arcsin(r:DOUBLE):DOUBLE;
  13. PROCEDURE closedoubtranslib;
  14.  
  15. IMPLEMENTATION
  16.  
  17. FUNCTION Cosh;
  18.  BEGIN
  19.   cosh:=ieeedpcosh(r);
  20.  END;
  21.  
  22. FUNCTION sinh;
  23.  BEGIN
  24.   sinh:=ieeedpsinh(r);
  25.  END;
  26.  
  27. FUNCTION tanh;
  28.  BEGIN
  29.   tanh:=ieeedptanh(r);
  30.  END;
  31.  
  32. FUNCTION tan;
  33.  BEGIN
  34.   tan:=ieeedptan(r);
  35.  END;
  36.  
  37. FUNCTION arccos;
  38.  BEGIN
  39.   arccos:=ieeedpacos(r);
  40.  END;
  41.  
  42. FUNCTION arcsin;
  43.  BEGIN
  44.   arcsin:=ieeedpasin(r);
  45.  END;
  46.  
  47. FUNCTION arctan;
  48.  BEGIN
  49.   arctan:=ieeedpatan(r);
  50.  END;
  51.  
  52. PROCEDURE closedoubtranslib;
  53.  BEGIN
  54.   closelib(mathIEEEDoubtransbase);  
  55.  END;
  56.  
  57. BEGIN
  58.  openlib(mathIEEEDoubtransbase,'mathieeedoubtrans.library',0);
  59. END.
  60.